﻿Imports DAO
Imports BUS
Imports DTO
Imports DevComponents.DotNetBar

Public Class frmBaoCaoTon

    Private Sub btnThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThoat.Click
        Me.Close()
    End Sub

    Private Sub btnBaoCao_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaoCao.Click
        Try
            Dim thang As Integer = Integer.Parse(txtThang.Text)
            If thang > 12 Then
                MessageBoxEx.Show("Tháng chỉ từ 1 đến 12 và nhập bằng số")
                Return

            End If
            If thang < 1 Then
                MessageBoxEx.Show("Tháng chỉ từ 1 đến 12 và nhập bằng số")
                Return
            End If
            Dim f As New frmBanBaoCaoTon()
            Dim rpt As New CrystalReportBaoCaoTon()
            rpt.SetDataSource(BaoCaoTonDAO.BaoCaoThang(thang))
            f.CrystalReportViewerBaoCaoTon.ReportSource = rpt
            f.Show()
        Catch e1 As FormatException
            MessageBoxEx.Show("Tháng không được bỏ trống, nhập vào giá trị là số")
            Return
        End Try
    End Sub
End Class